home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 March / inter@ivo 1997-03.iso / cybint14 / bin / bamuras.dxr / 00025.ls < prev    next >
Encoding:
Text File  |  1996-07-12  |  343 b   |  21 lines
  1. on mouseUp
  2.   unLoadCast(39, 43)
  3.   InVis(16)
  4.   sound playFile 2, "..\som\seta.wav"
  5.   startTimer()
  6.   repeat while the timer < 20
  7.     nothing()
  8.   end repeat
  9.   startTimer()
  10.   repeat while the timer < 30
  11.     nothing()
  12.   end repeat
  13.   onVis(13)
  14.   updateStage()
  15.   startTimer()
  16.   repeat while the timer < 30
  17.     nothing()
  18.   end repeat
  19.   go("exit")
  20. end
  21.